1 REM: WRITTEN FOR VIC BY BRIAN LANE      WITH HELP OF F. PETER ROHRMAYER,III
2 REM: CONVERTED TO COMMODORE64 AND       ENHANCED BY LEONARD C. ZITNIK
3 REM ----------------------------
4 REM MODIFIED EVER SO SLIGHTLY BY
5 REM   DAVID BRADLEY (01/16/85)
6 REM ----------------------------
9 GOSUB17000
10 PRINT"DO YOU WANT INSTRUCTIONS (Y/N)";
11 INPUTA$:IFA$="Y"THEN13000
12 IFA$="N"THEN15
14 GOTO11
15 GOSUB17000
16 A(1)=INT(RND(1)*10)+40
17 A(2)=INT(RND(1)*10)+20
18 A(3)=INT(RND(1)*10)+10
19 A(4)=INT(RND(1)*10)+30
20 A(5)=INT(RND(1)*5)+1
21 A(6)=INT(RND(1)*5)+1
22 A(7)=INT(RND(1)*25)+10
23 A(8)=INT(RND(1)*10)+20
25 FORI=1TO8:Q(I)=20000:NEXT
29 PRINT:PRINT"  EACH PLAYER WILL START WITH $50,000."
30 PRINT"  HOW MANY PLAYERS (UP TO 8)";:INPUTP
32 IFP>8ORP<1THENGOSUB17000:GOTO29
35 GOSUB17000:PRINT
40 FORG=1TOP
45 PRINT" ENTER NAME OF PLAYER  #";G
50 INPUT" ";A$(G)
52 M(G)=50000
55 NEXT
56 PRINT" HOW MANY YEARS DO YOU WISH TO PLAY?"
57 INPUT" ";NY:NY=NY+1
58 FORNG=1TONY
75 IFNG=NYTHEN100
80 GOSUB6000
82 GOSUB9000
89 GOSUB105
90 NEXTNG
100 PRINT"FINAL YEAR'S CLOSING":PRINT"DO YOU WANT TO STOP?"
101 GETC$:IFC$=""THEN101
102 IFC$="N"THEN56
103 END
105 PRINT"[147]NET WORTH: .......................":PRINT:PRINT
108 FORX=1TOP
110 NW(X)=Q1(X)*A(1)+Q2(X)*A(2)+Q3(X)*A(3)+Q4(X)*A(4)+Q5(X)*A(5)+Q6(X)*A(6)+Q7(X)*A(7)
112 GW(X)=NW(X)+(Q8(X)*A(8))+M(X)
114 PRINTA$(X);TAB(20)"= ";GW(X)
116 NEXT
118 PRINT" PRESS SPACE TO CONTINUE."
120 GETZZ$:IFZZ$=""THEN120
122 RETURN
5000 PRINT"[147]":PRINT"[150] CORP. SHARES BID ASK  "LEFT$(A$(X),14)"[159]"
5001 PRINT"[150] [197][197][197][197][197][160][197][197][197][197][197][197][160][197][197][197][160][197][197][197] [144] [197][197][197][197][197][197][197][197][197][197][197][197][197][159]"
5002 PRINT:PRINT"1 A.E."TAB(6);Q(1);TAB(13);A(1);TAB(17);A(1)+1
5003 PRINT:PRINT"2 BMF"TAB(6);Q(2);TAB(13);A(2);TAB(17);A(2)+1
5004 PRINT:PRINT"3 CCR "TAB(6);Q(3);TAB(13);A(3);TAB(17);A(3)+1
5005 PRINT:PRINT"4 CPL"TAB(6);Q(4);TAB(13);A(4);TAB(17);A(4)+1
5006 PRINT:PRINT"5 D.D."TAB(6);Q(5);TAB(13);A(5);TAB(17);A(5)+1
5007 PRINT:PRINT"6 E.U."TAB(6);Q(6);TAB(13);A(6);TAB(17);A(6)+1
5008 PRINT:PRINT"7 N.C."TAB(6);Q(7);TAB(13);A(7);TAB(17);A(7)+1
5009 PRINT:PRINT"8 PT&T"TAB(6);Q(8);TAB(13);A(8);TAB(17);A(8)+1
5010 PRINT" YEAR #";NG
5050 RETURN
5404 PRINT"HOW MANY SHARES";:INPUTS
6000 X=1:FORZ=1TOP
6002 GOSUB5000:GOSUB20000
6003 PRINT" ":PRINT"[150] BUY, SELL OR EXIT (B/S/E)?[154]"
6004 GETV$:IFV$=""THEN6004
6005 IFV$<>"B"ANDV$<>"S"ANDV$<>"E"THEN6004
6006 IFV$="E"THEN6056
6007 IFV$="B"THEN6028
6008 PRINT" WHICH COMPANY #?   "
6009 GETC$:IFC$=""THEN6009
6010 C=VAL(C$)
6011 ON CGOTO8000,8100,8200,8300,8400,8500,8600,8700,8800
6025 PRINT" ";A$(X);TAB(9)"-BUY(Y/N)? "
6026 GETV$:IFV$=""THEN6026
6027 IFV$="N"THEN6056
6028 PRINT" WHICH COMPANY #"
6029 GETA$:IFA$=""THEN6029
6030 C=VAL(A$)
6031 ONCGOTO7000,7100,7200,7300,7400,7500,7600,7700,7800
6032 C=VAL(A$)
6056 X=X+1
6058 NEXTZ
6059 RETURN
7000 GOSUB16100
7002 PRINT:PRINTQ(1)"SHARES OF A.E. ARE AVAILABLE."
7003 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
7004 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
7005 IFS>Q(1)THEN7002
7006 TV=S*AS
7010 IFTV>M(X)THEN7000
7020 Q1(X)=Q1(X)+S
7030 M(X)=M(X)-TV
7035 Q(1)=Q(1)-S
7040 GOTO6002
7100 GOSUB16100
7102 PRINT:PRINTQ(2)"SHARES OF BMF ARE AVAILABLE."
7103 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
7104 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
7105 IFS>Q(2)THEN7102
7106 TV=S*AS
7110 IFTV>M(X)THEN7100
7120 Q2(X)=Q2(X)+S
7130 M(X)=M(X)-TV
7135 Q(2)=Q(2)-S
7140 GOTO6002
7200 GOSUB16100
7202 PRINT:PRINTQ(3)"SHARES OF CCR ARE AVAILABLE."
7203 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
7204 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
7205 IFS>Q(3)THEN7202
7206 TV=S*AS
7210 IFTV>M(X)THEN7200
7220 Q3(X)=Q3(X)+S
7230 M(X)=M(X)-TV
7235 Q(3)=Q(3)-S
7240 GOTO6002
7300 GOSUB16100
7302 PRINT:PRINTQ(4)"SHARES OF CPL ARE AVAILABLE."
7303 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
7304 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
7305 IFS>Q(4)THEN7302
7306 TV=S*AS
7310 IFTV>M(X)THEN7300
7320 Q4(X)=Q4(X)+S
7330 M(X)=M(X)-TV
7335 Q(4)=Q(4)-S
7340 GOTO6002
7400 GOSUB16100
7402 PRINT:PRINTQ(5)"SHARES OF D.D. ARE AVAILABLE."
7403 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
7404 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
7405 IFS>Q(5)THEN7402
7406 TV=S*AS
7410 IFTV>M(X)THEN7400
7420 Q5(X)=Q5(X)+S
7430 M(X)=M(X)-TV
7435 Q(5)=Q(5)-S
7440 GOTO6002
7500 GOSUB16100
7502 PRINT:PRINTQ(6)"SHARES OF E.U. ARE AVAILABLE."
7503 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
7504 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
7505 IFS>Q(6)THEN7502
7506 TV=S*AS
7510 IFTV>M(X)THEN7500
7520 Q6(X)=Q6(X)+S
7530 M(X)=M(X)-TV
7535 Q(6)=Q(6)-S
7540 GOTO6002
7600 GOSUB16100
7602 PRINT:PRINTQ(7)"SHARES OF N.C. ARE AVAILABLE."
7603 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
7604 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
7605 IFS>Q(7)THEN7602
7606 TV=S*AS
7610 IFTV>M(X)THEN7600
7620 Q7(X)=Q7(X)+S
7630 M(X)=M(X)-TV
7635 Q(7)=Q(7)-S
7640 GOTO6002
7700 GOSUB16100
7702 PRINT:PRINTQ(8)"SHARES OF PT&T ARE AVAILABLE."
7703 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
7704 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
7705 IFS>Q(8)THEN7702
7706 TV=S*AS
7710 IFTV>M(X)THEN7700
7720 Q8(X)=Q8(X)+S
7730 M(X)=M(X)-TV
7735 Q(8)=Q(8)-S
7740 GOTO6002
8000 PRINT"[147] [150]YOU HAVE"Q1(X);"SHARES OF A.E. STOCK.[159]"
8005 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(1)
8010 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
8011 INPUTS
8014 IFS>Q1(X)THEN8000
8020 TV=S*A(1)
8025 M(X)=M(X)+TV
8030 Q1(X)=Q1(X)-S
8035 Q(1)=Q(1)+S
8040 GOTO6002
8100 PRINT"[147] [150]YOU HAVE"Q2(X);"SHARES OF BMF STOCK.[159]"
8105 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(2)
8110 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
8111 INPUTS
8114 IFS>Q2(X)THEN8100
8120 TV=S*A(2)
8125 M(X)=M(X)+TV
8130 Q2(X)=Q2(X)-S
8135 Q(2)=Q(2)+S
8140 GOTO6002
8200 PRINT"[147] [150]YOU HAVE"Q3(X);"SHARES OF CCR STOCK.[159]"
8205 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(3)
8210 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
8211 INPUTS
8214 IFS>Q3(X)THEN8200
8220 TV=S*A(3)
8225 M(X)=M(X)+TV
8230 Q3(X)=Q3(X)-S
8235 Q(3)=Q(3)+S
8240 GOTO6002
8300 PRINT"[147] [150]YOU HAVE"Q4(X);"SHARES OF CPL STOCK.[159]"
8305 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(4)
8310 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
8311 INPUTS
8314 IFS>Q4(X)THEN8300
8320 TV=S*A(4)
8325 M(X)=M(X)+TV
8330 Q4(X)=Q4(X)-S
8335 Q(4)=Q(4)+S
8340 GOTO6002
8400 PRINT"[147] [150]YOU HAVE"Q5(X);"SHARES OF D.D. STOCK.[159]"
8405 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(5)
8410 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
8411 INPUTS
8414 IFS>Q5(X)THEN8400
8420 TV=S*A(5)
8425 M(X)=M(X)+TV
8430 Q5(X)=Q5(X)-S
8435 Q(5)=Q(5)+S
8440 GOTO6002
8500 PRINT"[147] [150]YOU HAVE"Q6(X);"SHARES OF E.U. STOCK.[159]"
8505 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(6)
8510 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
8511 INPUTS
8514 IFS>Q6(X)THEN8500
8520 TV=S*A(6)
8525 M(X)=M(X)+TV
8530 Q6(X)=Q6(X)-S
8535 Q(6)=Q(6)+S
8540 GOTO6002
8600 PRINT"[147] [150]YOU HAVE"Q7(X);"SHARES OF N.C. STOCK.[159]"
8605 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(7)
8610 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
8611 INPUTS
8614 IFS>Q7(X)THEN8600
8620 TV=S*A(7)
8625 M(X)=M(X)+TV
8630 Q7(X)=Q7(X)-S
8635 Q(7)=Q(7)+S
8640 GOTO6002
8700 PRINT"[147] [150]YOU HAVE"Q8(X);"SHARES OF PT&T STOCK.[159]"
8705 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(8)
8710 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
8711 INPUTS
8714 IFS>Q8(X)THEN8700
8720 TV=S*A(8)
8725 M(X)=M(X)+TV
8730 Q8(X)=Q8(X)-S
8735 Q(8)=Q(8)+S
8740 GOTO6002
9000 X=INT(RND(1)*13)+1
9002 ONXGOTO9100,9150,9200,9250,9300,9350,9400,9450,9500,9550,9600,9700,9800
9100 GOSUB16500
9101 PRINT"[147] SOLID STATE BREAK-THROUGH!!"
9102 PRINT"[144] NATIONAL COMPUTERS UP $5 PER SHARE !![154]"
9104 A(7)=A(7)+5:GOTO9900
9150 GOSUB16500
9151 PRINT"[147] BULL MARKET PREDICTED!"
9152 PRINT" INSTITUTIONAL INVESTORS ENTER MARKET!"
9153 PRINT"[144] ALL STOCKS UP $2 PER SHARE !![154]"
9154 FORG=1TO8
9156 A(G)=A(G)+2:NEXT:GOTO9900
9200 GOSUB16500
9201 PRINT"[147] BEAR MARKET PREDICTED!"
9202 PRINT" SMALL INVESTORS ARE SELLING OUT!"
9203 PRINT"[144] MANY STOCKS DOWN $2 PER SHARE !![154]"
9204 A(5)=A(5)+2:A(6)=A(6)+2:FORG=1TO8
9206 A(G)=A(G)-2:IFA(G)<0THENA(G)=0
9207 NEXT:GOTO9900
9250 GOSUB16500
9251 PRINT"[147] GOVERNMENT DEREGULATES UTILITIES!!"
9252 A(4)=A(4)+2:A(8)=A(8)+2
9253 PRINT"[144] CITY POWER & LIGHT UP $2 PER SHARE !![154]"
9254 PRINT"[144] PACIFIC TEL & TEL  UP $2 PER SHARE !![154]"
9255 GOTO9900
9300 GOSUB16500
9301 PRINT"[147] GOVERNMENT STIFFENS REGULATIONS!"
9302 A(4)=A(4)-2:A(8)=A(8)-2
9303 PRINT"[144] CITY POWER & LIGHT DOWN $2 PER SHARE !![154]"
9304 PRINT"[144] PACIFIC TEL & TEL  DOWN $2 PER SHARE !![154]"
9305 IFA(4)<1THENA(4)=1
9306 IFA(8)<1THENA(8)=1
9309 GOTO9900
9350 GOSUB16500
9351 PRINT"[147] TEAMSTER'S STRIKE!!"
9352 PRINT"[144] CENTRAL CITY RR    UP $2 PER SHARE !![154]"
9353 PRINT"[144] MOST OTHER STOCKS DOWN $2 PER SHARE !![154]"
9354 A(3)=A(3)+4:A(5)=A(5)+2:A(6)=A(6)+2
9355 FORG=1TO8
9356 A(G)=A(G)-2:IFA(G)<0THENA(G)=0
9358 NEXT:GOTO9900
9400 GOSUB16500
9401 PRINT"[147]ARAB OIL EMBARGO!":A(5)=A(5)+5
9402 PRINT"[144] DRYHOLE DRILLING UP $3 PER SHARE !![154]"
9403 PRINT"[144] MOST OTHER STOCKS DOWN $2 PER SHARE !![154]":A(6)=A(6)+2
9404 FORG=1TO8
9406 A(G)=A(G)-2:IFA(G)<0THENA(G)=0
9408 NEXT:GOTO9900
9450 GOSUB16500
9451 PRINT"[147] LUCKY STRIKE FOR DRYHOLE... A GUSHER!!"
9452 PRINT"[144] DRYHOLE DRILLING DOUBLES IN VALUE !![154]"
9454 A(5)=A(5)*2:GOTO9900
9500 GOSUB16500
9501 PRINT"[147] LUCKY STRIKE FOR EUREKA URANIUM !"
9502 PRINT"[144] EUREKA URANIUM DOUBLES IN VALUE !![154]"
9504 A(6)=A(6)*2:GOTO9900
9550 GOSUB16500
9551 PRINT"[147] TECHNOLOGICAL BREAK THROUGH FOR ALPHA!"
9552 A(1)=A(1)+5
9553 PRINT"[144] ALPHA ENTERPRISES  UP $5 PER SHARE !![154]"
9554 GOTO9900
9600 GOSUB16700
9601 PRINT"[147] INFLATION INCREASE ......."
9602 PRINT"[144] MANY STOCKS UP 10 PERCENT IN VALUE !![154]"
9604 FORG=1TO8:A(G)=INT(A(G)*1.1):NEXT:GOTO9999
9700 GOSUB16500
9701 PRINT"[147] DRYHOLE DRILLING RE-ORGANIZES !"
9702 PRINT"[144] STOCK VALUED AT $1 PER SHARE !![154]"
9704 A(5)=1:GOTO9900
9800 GOSUB16500
9801 PRINT"[147] EUREKA URANIUM RE-ORGANIZES !"
9802 PRINT"[144] STOCK VALUED AT $1 PER SHARE !![154]"
9804 A(6)=1:GOTO9900
9900 FORT=1TO4000:NEXT:GOSUB16600:RETURN
9905 RETURN
9999 FORT=1TO4000:NEXT:GOSUB16800:RETURN
13000 PRINT" ....... I N S T R U C T I O N S ......."
13001 PRINT" THE FOLLOWING FIRMS OFFER STOCK OVER    THE  COUNTER:"
13002 PRINT
13003 PRINT" 1. A.E. - ALPHA ENTERPRISES"
13004 PRINT" 2. BMF  - BANKERS MUTUAL FUND"
13006 PRINT" 3. CCR  - CENTRAL CITY RAILWAYS"
13008 PRINT" 4. CPL  - CITY POWER & LIGHT"
13010 PRINT" 5. D.D. - DRYHOLE DRILLING CO."
13012 PRINT" 6. E.U. - EUREKA URANIUM"
13014 PRINT" 7. N.C. - NATIONAL COMPUTER"
13016 PRINT" 8. PT&T - PACIFIC TELEPHONE & TELEGRAPH"
13018 PRINT:PRINT" PRESS ANY KEY[145]"
13020 GETA$:IFA$=""THEN13020
13025 GOSUB17000:PRINT" THE OBJECT";
13050 PRINT" OF THE GAME, IS TO BE THE"
13051 PRINT" PLAYER WITH THE HIGHEST NET WORTH AT"
13052 PRINT" THE END OF A SELECTED NUMBER OF YEARS."
13054 PRINT:PRINT" YOU DO THIS BY BUYING & SELLING STOCKS."
13056 PRINT:PRINT" AT THE BEGINNING OF EACH YEAR YOU WILL  BE ASKED IF YOU";
13058 PRINT" WANT TO BUY OR SELL     STOCKS.
13060 [153]"WHEN YOU FINISH, THE NEXT PLAYER HAS A  CHANCE."
13064 [153]" PRESS ANY KEYON"
13065 [161]A$:[139]A$[178]""[167]13065
13072 [141]17000
13076 [153]" EACH YEAR, RANDOM EVENTS TAKE PLACE"
13077 [153]" AND WILL AFFECT CERTAIN STOCKS."
13080 [153]" PRESS ANY KEYON"
13082 [161]A$:[139]A$[178]""[167]13082
13085 [153]"LOAD":[137]15
16000 QQ[178][181](M(X)[173]AS):[139]QQ[177]Q(C)[167]QQ[178]Q(C)
16010 [153]" (MAX ="QQ")";:[133]S:[142]
16100 [153]"LOADDEF YOU HAVE $";M(X)"IN CASH.OPEN":AS[178]A(C)[170]1:[142]
16500 SD[178]54272:[151]SD[170]24,15:[151]SD[170]1,110:[151]SD[170]5,9:[151]SD[170]6,9:[151]SD[170]4,17
16510 [151]SD[170]4,16:[151]53281,09:[142]
16600 SD[178]54272:[151]SD[170]24,15:[151]SD[170]1,110:[151]SD[170]5,9:[151]SD[170]6,9:[151]SD[170]4,17
16610 [151]SD[170]4,16:[151]53281,06:[142]
16700 SD[178]54272:[151]SD[170]24,15:[151]SD[170]1, 48:[151]SD[170]5,9:[151]SD[170]6,9:[151]SD[170]4,33
16710 [151]SD[170]4,16:[151]53281,04:[142]
16800 SD[178]54272:[151]SD[170]24,15:[151]SD[170]1,110:[151]SD[170]5,9:[151]SD[170]6,9:[151]SD[170]4,17
16810 [151]SD[170]4,16:[151]53281,06:[142]
17000 [153]"LOAD"[166]8)"DEF  STOCK MARKET GAME  WAITOPEN":[142]
20000 [153]""[163]23)Q1(X)[163]30)"$"Q1(X)[172]A(1)
20002 [153]""[163]23)Q2(X)[163]30)"$"Q2(X)[172]A(2)
20003 [153]""[163]23)Q3(X)[163]30)"$"Q3(X)[172]A(3)
20004 [153]""[163]23)Q4(X)[163]30)"$"Q4(X)[172]A(4)
20005 [153]""[163]23)Q5(X)[163]30)"$"Q5(X)[172]A(5)
20006 [153]""[163]23)Q6(X)[163]30)"$"Q6(X)[172]A(6)
20007 [153]""[163]23)Q7(X)[163]30)"$"Q7(X)[172]A(7)
20008 [153]""[163]23)Q8(X)[163]30)"$"Q8(X)[172]A(8)
20009 [153]""[163]24)"CASH  $"M(X):[142]